home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / datespan.arc / DATESPAN.CMD < prev    next >
Encoding:
Text File  |  1991-12-04  |  2.0 KB  |  26 lines
  1. /*---------------------------------------------------------------------       */
  2. /*  NAME ................... DATESPAN                                         */
  3. /*  FUNCTION ............... CALCULATE THE NUMBER OF DAYS BETWEEN TWO         */
  4. /*                           DATES.                                           */
  5. /*                                                                            */
  6. /*  COMMAND PROCESSOR ...... DATESPAN1 CLP                                    */
  7. /*                                                                            */
  8. /*  AUTHOR ................. TERRENCE W. MOYER                                */
  9. /*                           55 KEPPEL AVE                                    */
  10. /*                           WEST LAWN, PA. 19609                             */
  11. /*                                                                            */
  12. /*  DATE ................... NOVEMBER 20, 1986                                */
  13. /*                                                                            */
  14. /*---------------------------------------------------------------------       */
  15.              CMD        PROMPT('Span of Days for Two Dates')                    
  16.              PARM       KWD(DATE1) TYPE(*DEC) LEN(6) DFT(*TODAY) +              
  17.                         SPCVAL((*TODAY 999999) (T 999999))  +                   
  18.                         PROMPT('First Date (MMDDYY):')                          
  19.              PARM       KWD(DATE2) TYPE(*DEC) LEN(6)  +                         
  20.                         PROMPT('Second Date (MMDDYY):')                         
  21.              PARM       KWD(SPANTYPE) TYPE(*DEC) LEN(1) RSTD(*YES) +            
  22.                         DFT(*ENDDATE) SPCVAL((*INCLUSIVE +1) (I +1) +           
  23.                         (*EXCLUSIVE -1) (X -1) (*ENDDATE 0) (E 0)) +            
  24.                         PROMPT('Include both, neither or date2')                
  25. 1) (X -1) (*ENDDATE 0) (E 0)) +            
  26.                         PROMPT('In